home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / rmastr02.zip / RWBGF.PAS < prev    next >
Pascal/Delphi Source File  |  1991-09-22  |  762b  |  43 lines
  1. Unit RWbgf;
  2.  
  3. Interface
  4.  
  5.  Function ReadBGF(Filename  : String; Var Img : Pointer) : Word;
  6.  Procedure WriteBGF(Filename : String; X1,Y1,X2,Y2 : Word; Img : Pointer);
  7.  
  8.  
  9. Implementation
  10.      Uses Graph;
  11.  
  12.  Function ReadBGF(Filename : String; Var Img : Pointer): Word;
  13.  Var
  14.   F    : File;
  15.   Size : Word;
  16.  Begin
  17.   Assign(F,Filename);
  18.   Reset(F,1);
  19.   Size:=FileSize(F);
  20.   GetMem(Img,Size);
  21.   BlockRead(F,Img^,Size);
  22.   Close(F);
  23.   ReadBGF:=Size;
  24.  End;
  25.  
  26.  
  27.  Procedure WriteBGF(Filename : String; X1,Y1,X2,Y2 : Word; Img : Pointer);
  28.  Var
  29.   F    : File;
  30.   Size : Word;
  31.  Begin
  32.   Size:=ImageSize(X1,Y1,X2,Y2);
  33.   Assign(F,Filename);
  34.   Rewrite(F,1);
  35.   BlockWrite(F,Img^,Size);
  36.   Close(F);
  37.  End;
  38.  
  39. Begin
  40.  (* No startup code Needed *)
  41. End.
  42.  
  43.